home *** CD-ROM | disk | FTP | other *** search
/ Educational Software Cooperative 4 / Educational Software Cooperative 4.iso / midilang / fripp.mpl < prev    next >
Text File  |  1996-02-06  |  1KB  |  108 lines
  1. 26082
  2. #
  3. #
  4. #
  5. #    fripp.mpl
  6. #
  7. #    Fripp effect in live
  8. #
  9. #          Author          ID                   Date
  10. #       ------------   -----------          ---------
  11. #     Serge Sibony   100417,2633          09/06/95
  12. #      
  13. #
  14. # This file is a mpl effect definition used by MidiLang
  15. #    MidiLang can be found at the MidiForum, in the
  16. #         Windows sound media library.
  17. # 
  18. # 
  19. #
  20. # This effect will record your play and play it back softer
  21. #    a number of beat after and a number of time
  22. # This effect allows you to play almost like R.Fripp
  23. #
  24. #
  25. #
  26.  
  27.  
  28. Label delay+
  29. v+= 1 1
  30. end
  31.  
  32. Label delay-
  33. v-= 1 1
  34. end
  35.  
  36. Label softer
  37. v*= 3 1.141214
  38. end
  39.  
  40. Label harder
  41. v/= 3 1.141214
  42. end
  43.  
  44. Label loop-
  45. v-= 5 1
  46. end
  47.  
  48. Label loop+
  49. v+= 5 1
  50. end
  51.  
  52. Label chan-
  53. v-= 2 1
  54. end
  55.  
  56. Label chan+
  57. v+= 2 1
  58. end
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65. Label Main
  66.  
  67. V=V 6 5
  68.  
  69. Label Loop
  70.  
  71. v=v 4 1
  72. V*= 4 480
  73.  
  74. time+=V 4
  75.  
  76. vel/=V 3
  77.  
  78. chan=v 2
  79. outmidi
  80.  
  81. V-= 6 1
  82. V!= 6 0
  83.     goto Loop
  84. end
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92. descript Fripp effect
  93. descript Replay several time and softer
  94. descript your play after a long delay
  95.  
  96. keydef C C# delay- more_delay delay 1 8
  97. keydef C B delay+ less_delay
  98.  
  99. keydef D D# softer softer volume_divide 3 1.5
  100. keydef D C# harder harder
  101.  
  102. keydef E D# loop- less_loop loop_nb 5 4
  103. keydef E F  loop+ more_loop
  104.  
  105. keydef G F# chan- chan- out_channel 2 4
  106. keydef G G#  chan+ chan+ 
  107.  
  108.